home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / comm / bbs / HackNSlash22.lha / Contrib / rpg.trans < prev    next >
Text File  |  1993-05-28  |  1KB  |  39 lines
  1. /* Hack & Slash 2.1 Loader 
  2.    by: Rod Schnell         */
  3.  
  4. options failat 21          /* Keeps users out of your shell! */
  5. options results
  6.  
  7. call pragma('stack',10000)
  8. UserInfo 'a' ; Name = upper(result)
  9. SystemInfo 'm' ; Time = result
  10. SystemInfo '8' ; Line = result
  11. id=time(s)
  12. Transmit
  13. Transmit "Loading Hack & Slash..."
  14. SetNodeLocation Name' is playing Hack & Slash'
  15.  
  16. path='t:rpg-startup'line   /* change this to reflect your directory path */
  17. multi=0                   /* change to 1 if you wish to allow multiple
  18.                               charachters */
  19.  
  20. if multi=1 then do
  21.   transmit 'What charachter number would you like to use?'
  22.   query 'Just press RETURN for your primary charachter. ' ; who=upper(result)
  23.   if who~='RESULT' then Name=Name'.'who
  24. end
  25.  
  26. open('temp',path,'W')
  27. writeln('temp','stack 10000')
  28. writeln('temp','BBS:Extras/rpg/HSClient -t'Time' 'Name)
  29. writeln('temp','endcli')
  30. close('temp')
  31.  
  32. address command 'NewShell from 'path' FIFO:hack'id'/rwkecs'
  33. address command 'BBS:Bin/TrShell -n'line' -fhack'id 
  34. address command 'Delete 'path' quiet'
  35. delay 100
  36. exit
  37.  
  38. /* end of Hack & Slash */
  39.